PC Gamer (Italian) 41/PC Gamer IT CD 41 2-2.iso/utility/CISEI/16BIT/CSEI.DXR/00002_MD TASTI.ls

Text File | 1998-10-06 | 460 b | 27 lines

on mouseDown
  global MatTasti, NumTasto, LastNumTasto
  if NumTasto = 0 then
    exit
  end if
  set tasto to getAt(MatTasti, NumTasto)
  abbassa(tasto)
end

on mouseUp
  global MatTasti, LastNumTasto
  if the doubleClick then
    exit
  end if
  startTimer()
  repeat while the timer < 15
    if the mouseDown then
      exit
    end if
  end repeat
  if LastNumTasto = 0 then
    exit
  end if
  set tasto to getAt(MatTasti, LastNumTasto)
  alza(tasto)
end